home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 24 / AACD 24.iso / AACD / Information / WebSites / Eyetech / DOWNLOAD / CYBER010.LHA / CV3DInstall / tools / CyberVerV3 < prev    next >
Text File  |  1997-02-28  |  5KB  |  110 lines
  1. ;********************************************************************************
  2. ;     ______        __                  __  __        
  3. ;    / __  /       / /                 / / / /       
  4. ;   / /  -'__  __ / /___ ______ _____ / / / /______ _____
  5. ;  / /     \ \/ // __  // ____// .__// / / // ____// .__/
  6. ; / /___    \  // /_/ // __/_ / /   / /_/ // __/_ / /
  7. ; \____/    / //_____//_____//_/    \____//_____//_/ V3
  8. ;          /_/                                                          
  9. ; 
  10. ; $VER: CyberVer 3.0c (December-17-1996)
  11. ; CyberVer by Robert C. Reiswig ©1995-1996
  12. ;
  13. ; If you wish to use any part of this installer you must ask. May not be 
  14. ; integrated/placed into any other package. Changes, suggestions or problems:
  15. ; cyberver@vgr.com or rcr@netcom.com
  16. ;--------------------------------------------------------------------------------
  17. ;
  18. ;********************************************************************************
  19. (if (= @user-level 0) (set @user-level 1))
  20. (if (= frank 26) (welcome))
  21.  
  22. ;********************************************************************************
  23. ; Read Needed System information
  24. ;********************************************************************************
  25. (set lan 1)
  26. (if (> (exists ("env:Language")) 0)
  27.   (if (= "deutsch" (getenv "Language")) (set lan 0) )
  28. )
  29.  
  30. (if (> (exists ("env:user")) 0) (set username (getenv "USER")) )
  31. (if (> (exists ("env:username")) 0) (set username (getenv "USERNAME")) )
  32. (if (> (exists ("env:host")) 0) (set hostname (getenv "HOST")) )
  33. (if (> (exists ("env:hostname")) 0) (set hostname (getenv "HOSTNAME")) )
  34.  
  35. (set #exitmessage1 "\nA text file, '")
  36. (set #exitmessage2 "', with all the version information for the V43DT and CyberGraphX files was written out.")
  37.  
  38. ;********************************************************************************
  39. ; Show and Save (ram:V43DT_Versions.txt) Versions of V43 DTs
  40. ;********************************************************************************
  41. (procedure getver
  42.   (set vernum1 (getversion checkfile))
  43.   (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  44.   (set verrev (cat ver1 "." rev1))
  45.   (if (= verrev "0.0") (set verrev "N/A"))
  46. )
  47.  
  48. (set master "CyberGraphX - Libs and Monitor files:\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n")
  49. (set checkfile "libs:cgxsystem.library") (getver) (set master (cat master checkfile " - " verrev "\n"))
  50. (set checkfile "libs:cgxvideo.library") (getver) (set master (cat master checkfile " - " verrev "\n"))
  51.  
  52. (if (exists "devs:monitors/CVision3D")   ( (set checkfile "devs:monitors/CVision3D") (getver) (set master (cat master checkfile " - " verrev "\n")) )     )
  53.  
  54. (set master (cat master "\nOther Libaries\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"))
  55.  
  56. (set checkfile "libs:vilintuisup.library") (getver) (set master (cat master checkfile " - " verrev "\n"))
  57. (set checkfile "libs:gtlayout.library") (getver) (set master (cat master checkfile " - " verrev "\n\n"))
  58.  
  59.  
  60. (message master)
  61.  
  62.  
  63.  
  64. (set master1 "V43 24Bit Datatypes:\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n")
  65. (if (exists "sys:classes/codec.class")
  66.   ( (set checkfile "sys:classes/codec.class") (getver) (set master1 (cat master1 checkfile " - " verrev "\n"))  )
  67.   ( (set checkfile "libs:codec.class") (getver) (set master1 (cat master1 checkfile " - " verrev "\n"))  )
  68. )
  69. (if (exists "sys:classes/codecs/picture.codec")
  70.   ( (set checkfile "sys:classes/codecs/picture.codec") (getver) (set master1 (cat master1 checkfile " - " verrev "\n"))  )
  71.   ( (set checkfile "libs:codecs/picture.codec") (getver) (set master1 (cat master1 checkfile " - " verrev "\n"))  )
  72. )
  73. (if (exists "sys:classes/codecs/jpeg.codec")
  74.   ( (set checkfile "sys:classes/codecs/jpeg.codec") (getver) (set master1 (cat master1 checkfile " - " verrev "\n\n"))  )
  75.   ( (set checkfile "libs:codecs/jpeg.codec") (getver) (set master1 (cat master1 checkfile " - " verrev "\n\n"))  )
  76. )
  77. (set checkfile "sys:classes/datatypes/picture.datatype") (getver) (set master1 (cat master1 checkfile " - " verrev "\n"))
  78. (set checkfile "sys:classes/datatypes/pcx.datatype") (getver) (set master1 (cat master1 checkfile " - " verrev "\n"))
  79. (set checkfile "sys:classes/datatypes/pbm.datatype") (getver) (set master1 (cat master1 checkfile " - " verrev "\n"))
  80. (set checkfile "sys:classes/datatypes/jfif.datatype") (getver) (set master1 (cat master1 checkfile " - " verrev "\n"))
  81. (set checkfile "sys:classes/datatypes/ilbm.datatype") (getver) (set master1 (cat master1 checkfile " - " verrev "\n"))
  82. (set checkfile "sys:classes/datatypes/gif.datatype") (getver) (set master1 (cat master1 checkfile " - " verrev "\n\n"))
  83.  
  84. (message master1)
  85.  
  86. (run "date > env:CyberVer.TEMP") 
  87. (set date (getenv "CyberVer.TEMP"))
  88.  
  89. (set date2 (substr date (- (strlen date) 19) ) ) 
  90. (set date3 (substr date2 0 9) ) 
  91.  
  92. (set whodate (cat username "@" hostname "\n\n"))
  93. (set filename (cat "CyberVer" date3 ".txt"))
  94.  
  95. (set #wherefile (cat "Where do you wish to write the CyberVer report? (" filename ")"))
  96.  
  97. (set wheredir  (askdir (prompt #wherefile)
  98.                (help   #wherefile)
  99.                     (default "ram:")
  100.                )  
  101. )
  102.  
  103. (textfile (dest (tackon wheredir filename)) (include "env:CyberVer.TEMP") (append  (cat whodate master "\n\n" master1)) )
  104. (delete "env:CyberVer.TEMP")
  105.  
  106. ;********************************************************************************
  107. ; END  
  108. ;********************************************************************************
  109. (exit (cat #exitmessage1 (tackon wheredir filename) #exitmessage2) (quiet))
  110.